Small Time Crooks Press Kit/Small Time Crooks Press Kit.iso/pc/Small Time Crooks.dxr/Scripts_1.ls

Text File | 2000-04-30 | 1.1 KB | 35 lines

global gMasterTexts, gDownloadTexts, gCurrentText, gMasterPhotos, gDownloadPhotos, gCurrentPhoto, gCurrentVideo, gInitialMenuHelpOn

on startMovie
  set gDownloadTexts to []
  set gCurrentText to EMPTY
  set gDownloadPhotos to []
  set gCurrentPhoto to EMPTY
  set gCurrentVideo to EMPTY
  set previousItemDelimiter to the itemDelimiter
  set the itemDelimiter to "@"
  set textsIndex to field "TextsIndex"
  set gMasterTexts to []
  repeat with whichLine = 1 to the number of lines in textsIndex
    if line whichLine of textsIndex = EMPTY then
      next repeat
    end if
    append(gMasterTexts, item 1 of line whichLine of textsIndex)
  end repeat
  set photosIndex to field "PhotosIndex"
  set gMasterPhotos to []
  repeat with whichLine = 1 to the number of lines in photosIndex
    if line whichLine of photosIndex = EMPTY then
      next repeat
    end if
    append(gMasterPhotos, item 1 of line whichLine of photosIndex)
  end repeat
  set the itemDelimiter to previousItemDelimiter
  SetScrollTopsToTop()
  set gInitialMenuHelpOn to 1
end

on idle
  sendAllSprites(#DoIdleScript)
end